home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00468_Field_468.txt < prev    next >
Text File  |  1994-06-14  |  354b  |  16 lines
  1. MECH ,  77
  2. --================================================================= 
  3. -- bounce all the balls in the ball list
  4. on mBounceBall me
  5.   -- bounce the ball
  6.   set count = 1
  7.   repeat while count <= nBalls 
  8.     put getAt(myBallList,count) into thisBall
  9.     mBounceBall (thisBall)
  10.     set count = count + 1
  11.   end repeat
  12. end mBounceBall
  13.  
  14.  
  15.  
  16.